inherited frmWageMonthBill: TfrmWageMonthBill
  Left = 309
  Caption = #24037#36164#25968#25454#24405#20837
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlDBCtrl: TPanel
    object shpPay: TShape [0]
      Left = 243
      Top = 13
      Width = 79
      Height = 33
      Pen.Color = clNavy
      Pen.Mode = pmMask
      Shape = stRoundRect
      Visible = False
    end
    inherited pnlThirdtrade: TPanel
      inherited lblTTtraderid: TcxLabel
        AnchorX = 78
      end
      inherited cxLabel1: TcxLabel
        AnchorX = 262
      end
      inherited lblTTBalanceid: TcxLabel
        AnchorX = 469
      end
    end
    inherited DtlPageCtrl: TcxPageControl
      inherited tabMain: TcxTabSheet
        inherited DtlGrid: TcxGrid
          ExplicitTop = 0
        end
      end
    end
    inherited imgCheck: TcxImage
      TabOrder = 5
    end
    inherited dynlblCreate_by: TcxLabel
      AnchorX = 221
    end
    inherited dynlblCheck_by: TcxLabel
      AnchorX = 429
    end
    inherited dynlblFilid: TcxLabel
      AnchorX = 88
    end
    inherited dynlblDeptid: TcxLabel
      AnchorX = 301
    end
    inherited dynlblEmpid: TcxLabel
      AnchorX = 505
    end
    inherited dynlblBKind: TcxLabel
      AnchorX = 149
    end
    object lblPay: TcxLabel
      Left = 259
      Top = 22
      Caption = #24050#20184#28165
      ParentFont = False
      Style.Font.Charset = GB2312_CHARSET
      Style.Font.Color = clBlue
      Style.Font.Height = -12
      Style.Font.Name = #23435#20307
      Style.Font.Style = [fsBold]
      Style.IsFontAssigned = True
    end
  end
  inherited pnlTop: TPanel
    inherited btnNext: TcxButton
      Left = 99
      ExplicitLeft = 99
    end
    inherited btnOperator: TcxButton
      Left = 181
      ExplicitLeft = 181
    end
    inherited btnExec: TcxButton
      Left = 263
      ExplicitLeft = 263
    end
    inherited btnRelation: TcxButton
      Left = 346
      ExplicitLeft = 346
    end
    inherited btnAffix: TcxButton
      Left = 510
      Visible = False
      ExplicitLeft = 510
    end
    inherited btnCst: TcxButton
      TabOrder = 9
    end
    object btnCalc: TcxButton
      Left = 428
      Top = 9
      Width = 80
      Height = 28
      Hint = #35745#31639#24037#36164
      Caption = #35745#31639
      Colors.Default = 16773345
      TabOrder = 8
      OnClick = btnCalcClick
    end
  end
  inherited pmExec: TPopupMenu
    object muImportEmp: TMenuItem [1]
      Caption = #24341#20837#21592#24037
      OnClick = muImportEmpClick
    end
    object muFixedWage: TMenuItem [2]
      Caption = #24341#20837#22266#23450#24037#36164
      OnClick = muFixedWageClick
    end
  end
  inherited pmRelation: TPopupMenu
    object muIncomeTax: TMenuItem
      Caption = #20010#20154#25152#24471#31246#35745#31639#34920
      OnClick = muIncomeTaxClick
    end
  end
  inherited cxStyleRepository1: TcxStyleRepository
    PixelsPerInch = 96
  end
  inherited dspDetail: TDataSetProvider
    Left = 292
  end
  inherited pmCstBtn: TPopupMenu
    Top = 28
  end
  object qryWageMonthDtl: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select EMPID,wageno,DATAVALUE'
      'from tfb_wagemonthdtl'
      'where bid=:bid '
      'order by EmpID, wageno')
    Left = 688
    Top = 235
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'bid'
        Value = nil
      end>
  end
  object qryLaborage: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from tfd_laborage where pause=0')
    Left = 684
    Top = 291
  end
  object qryPiece: TUniQuery
    SQLInsert.Strings = (
      
        'update tfb_wagepiecedtl set wagemonthbid=:wagemonthbid where bid' +
        '=:bid and bno=:bno and empid=:empid')
    SQLDelete.Strings = (
      'DELETE FROM tfb_wagepiecedtl'
      'WHERE'
      
        '  bid = :Old_bid AND bno = :Old_bno and wagemonthbid=:Old_wagemo' +
        'nthbid ')
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from tfb_wagepiecedtl where wagemonthbid=:wagemonthbid')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Left = 332
    Top = 351
    ParamData = <
      item
        DataType = ftInteger
        Name = 'wagemonthbid'
        ParamType = ptInput
        Value = 0
      end>
  end
end
